home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1998 June / Software of the Month Club 1998 June.iso / pc / dos / games / dom1 / fun2.rpp < prev    next >
Text File  |  1998-04-15  |  2KB  |  126 lines
  1. {fun}
  2.  
  3. var n: number;
  4. var x: number;
  5.  
  6. randomize;
  7.  
  8. loop(n=1 to 2)
  9.  
  10.   setcolor(rand(4,255));
  11.   line(15,15,15,150);
  12.   delay(250);
  13.   cls(3);
  14.   setcolor(rand(5,255));
  15.   line(15,15,15,150);
  16.   line(15,15,75,15);
  17.   delay(250);
  18.   cls(4);
  19.   setcolor(rand(6,255));
  20.   line(15,15,15,150);
  21.   line(15,15,75,15);
  22.   line(15,50,50,50);
  23.   delay(250);
  24.   cls(5);
  25.   setcolor(rand(7,255));
  26.   line(100,15,100,150);
  27.   delay(250);
  28.   cls(6);
  29.   setcolor(rand(8,255));
  30.   line(100,15,100,150);
  31.   line(100,150,175,150);
  32.   delay(250);
  33.   cls(7);
  34.   setcolor(rand(9,255));
  35.   line(100,15,100,150);
  36.   line(100,150,175,150);
  37.   line(175,15,175,150);
  38.   delay(500);
  39.   cls(8);
  40.   setcolor(rand(10,255));
  41.   line(225,15,225,150);
  42.   delay(250);
  43.   cls(9);
  44.   setcolor(rand(11,255));
  45.   line(225,15,225,150);
  46.   line(225,15,300,150);
  47.   delay(250);
  48.   cls(10);
  49.   setcolor(rand(12,255));
  50.   line(225,15,225,150);
  51.   line(225,15,300,150);
  52.   line(300,15,300,150);
  53.   delay(350);
  54.   cls(11);
  55.   setcolor(rand(1,255));
  56.   line(15,15,15,150);
  57.   line(15,15,75,15);
  58.   line(15,50,50,50);
  59.   line(100,15,100,150);
  60.   line(100,150,175,150);
  61.   line(175,15,175,150);
  62.   line(225,15,225,150);
  63.   line(225,15,300,150);
  64.   line(300,15,300,150);
  65.   delay(350);
  66.   cls(rand(1,255));
  67.   setcolor(rand(1,255));
  68.   line(15,15,15,150);
  69.   line(15,15,75,15);
  70.   line(15,50,50,50);
  71.   line(100,15,100,150);
  72.   line(100,150,175,150);
  73.   line(175,15,175,150);
  74.   line(225,15,225,150);
  75.   line(225,15,300,150);
  76.   line(300,15,300,150);
  77.   delay(350);
  78.   cls(rand(1,255));
  79.   setcolor(rand(1,255));
  80.   line(15,15,15,150);
  81.   line(15,15,75,15);
  82.   line(15,50,50,50);
  83.   line(100,15,100,150);
  84.   line(100,150,175,150);
  85.   line(175,15,175,150);
  86.   line(225,15,225,150);
  87.   line(225,15,300,150);
  88.   line(300,15,300,150);
  89.   delay(350);
  90.   cls(rand(1,255));
  91. endl;
  92.  
  93.  
  94. loop(x=1 to 10000)
  95.   setcolor(rand(1,255));
  96.   plot(rand(0,maxx),rand(0,maxy));
  97. endl;
  98.  
  99.  
  100.  
  101.  
  102.  
  103.  
  104.  
  105.  
  106.  
  107.  
  108.  
  109.  
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.  
  126.